home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Golden Disk
/
Golden_Disk_89-06_1989_-_de_Side_B.d64
/
interupt maker
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
439b
|
13 lines
10 relocateaddress=49152 :rem $c000
20 playeraddress=4096 :rem $1000
30 :
40 :
50 fori=0to26:reada:pokepl+i,a:next
60 poke pl+7,(pl+21)/256:pokepl+2,(pl+21)-peek(pl+7)*256
70 poke pl+18,(re+5)/256:pokepl+17,(re+5)-peek(pl+18)*256
80 poke pl+23,(re+2)/256:pokepl+22,(re+2)-peek(pl+23)*256
90 sys playeraddress
100 print "[147]now type:":print"poke"re"[157],nr":print"to hear a sound-effect"
110 data120,169,21,141,20,3,169,16,141,21,3,169,76,141,5,220,32,5,96
120 data88,96,32,2,96,76,49,234